﻿Imports BE.BE

Namespace DAL
    Public Class DAL_Persona

        Shared Sub altaPersona(pPersona As Persona_BE)

            Try

                pPersona.Id = Helper_DAL.ObtenerProximoId("persona")
            Catch ex As Exception
                Throw ex
            End Try
            
            Dim strcomm As String = "insert into persona (id_persona, nombre, apellido, dni, fecha_nacimiento) values " & _
                "(" & pPersona.Id & ",'" & pPersona.Nombre & "','" & pPersona.Apellido & "'," & pPersona.DNI & ",'" & pPersona.FechaNacimiento & "')"

            Try
                Helper_DAL.ExecuteNonQuery(strcomm)
            Catch ex As Exception
                Throw ex
            End Try


        End Sub

        Shared Sub bajaPersona(pPersonas As Persona_BE)

        End Sub

        Shared Sub modificarPersona(pPersona As Persona_BE)

        End Sub


        Shared Function traerPersona(pPersona As Persona_BE) As Persona_BE
            Return Nothing
        End Function

        Shared Function listarPersona() As List(Of Persona_BE)
            Return Nothing
        End Function



    End Class

End Namespace
